home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_6791.txt < prev    next >
Text File  |  1990-08-14  |  10KB  |  297 lines

  1. -- card: 6791 from stack: in
  2. -- bmap block id: 7294
  3. -- flags: 4000
  4. -- background id: 4754
  5. -- name: CSL Attendance
  6. ----- HyperTalk script -----
  7. on rollingDemo
  8.   answer "Attendance demo will take approx. 7 min." with "Cancel" or "OK"
  9.   if it is "Cancel" then exit rollingDemo
  10.   set the cursor to none
  11.   lock screen
  12.   go to card "Rolling Demo Instructions" of this background
  13.   unlock screen with dissolve fast
  14.   repeat until the mouseClick
  15.   end repeat
  16.   set the cursor to hand
  17.   autoMouse moveMouse,420,60
  18.   click at the loc of bg button id 7
  19.   showInfo "Introduction",false
  20.   wait 1 second
  21.   set the cursor to hand
  22.   put getButton() into buttonNum
  23.   put the loc of background button buttonNum into buttonLoc
  24.   autoMouse moveMouse,item 1 of buttonLoc,item 2 of buttonLoc
  25.   click at the loc of background button buttonNum
  26.   showInfo "Introduction",false
  27.   wait 30
  28.   set the cursor to hand
  29.   autoMouse moveMouse,85,103
  30.   send "mouseUp up" to bg button id 1
  31.   wait 30
  32.   autoMouse moveMouse,85,137
  33.   send "mouseUp down" to bg button id 3
  34.   wait 30
  35.   autoMouse moveMouse,85,168
  36.   send "mouseUp down" to bg button id 5
  37.   wait 30
  38.   autoMouse moveMouse,85,231
  39.   send "mouseUp down" to bg button id 9
  40.   wait 1 second
  41.   autoMouse moveMouse,307,310
  42.   click at the loc of background button "Field Trip"
  43.   showInfo "Comments",false
  44.   wait 30
  45.   set the cursor to hand
  46.   autoMouse menuMouse,6,5 -- Action Comment‚Ķ
  47.   wait 30
  48.   autoMouse moveMouse,100,144
  49.   tabKey
  50.   type "Science"
  51.   wait 2 seconds
  52.   autoMouse moveMouse,167,239
  53.   click at the loc of card button "OK"
  54.   showInfo "View Order",false
  55.   wait 1 second
  56.   set the cursor to hand
  57.   autoMouse menuMouse,5,3 -- By Grade
  58.   wait 1 second
  59.   autoMouse moveMouse,179,262
  60.   click at the loc of card button "Scroll Right"
  61.   wait 1 second
  62.   autoMouse menuMouse,5,4 -- By Homeroom
  63.   wait 1 second
  64.   autoMouse moveMouse,179,262
  65.   click at the loc of card button "Scroll Right"
  66.   wait 1 second
  67.   autoMouse moveMouse,233,262
  68.   click at the loc of card button "Scroll Right"
  69.   wait 1 second
  70.   autoMouse moveMouse,293,262
  71.   click at the loc of card button "Scroll Right"
  72.   wait 1 second
  73.   autoMouse menuMouse,5,1 -- All Students
  74.   if the result is "Item not found" then -- test for XCMD bug
  75.     send "doMenu All Students" to background "CSL Attendance Window"
  76.   end if
  77.   showInfo "Period Attendance",false
  78.   wait 1 second
  79.   set the cursor to hand
  80.   autoMouse menuMouse,4,1 -- Class Directory
  81.   if the result is "Item not found" then -- test for XCMD bug
  82.     send "Class Directory" to background "CSL Attendance Window"
  83.   end if
  84.   wait 1 second
  85.   autoMouse moveMouse,233,303
  86.   click at the loc of background button "Scroll Bar"
  87.   wait 1 second
  88.   autoMouse moveMouse,260,303
  89.   click at the loc of background button "Scroll Bar"
  90.   wait 1 second
  91.   autoMouse moveMouse,292,303
  92.   click at the loc of background button "Scroll Bar"
  93.   wait 1 second
  94.   autoMouse moveMouse,226,107
  95.   click at the loc of bg button 1
  96.   wait 1 second
  97.   autoMouse moveMouse,416,101
  98.   send "mouseUp up" to bg button id 37
  99.   wait 30
  100.   autoMouse moveMouse,416,133
  101.   send "mouseUp down" to bg button id 53
  102.   wait 30
  103.   autoMouse moveMouse,416,165
  104.   send "mouseUp down" to bg button id 69
  105.   wait 30
  106.   autoMouse moveMouse,416,181
  107.   send "mouseUp down" to bg button id 77
  108.   wait 30
  109.   autoMouse moveMouse,416,229
  110.   send "mouseUp down" to bg button id 101
  111.   wait 1 second
  112.   autoMouse moveMouse,63,293
  113.   click at the loc of background button "Absent Excused"
  114.   showInfo "Period to Daily",false
  115.   wait 1 second
  116.   set the cursor to hand
  117.   autoMouse menuMouse,3,9 -- Period to Daily Link‚Ķ
  118.   showInfo "Period to Daily Window",true
  119.   showInfo "Calculate Daily",true
  120.   wait 1 second
  121.   set the cursor to hand
  122.   autoMouse moveMouse,314,309
  123.   click at the loc of card button "Cancel"
  124.   wait 30
  125.   autoMouse menuMouse,6,8 -- Calculate Daily From Period‚Ķ
  126.   wait 1 second
  127.   autoMouse menuMouse,5,1 -- All Students
  128.   if the result is "Item not found" then -- test for XCMD bug
  129.     send "doMenu All Students" to background "CSL Attendance Window"
  130.   end if
  131.   showInfo "Single Student",false
  132.   wait 1 second
  133.   set the cursor to hand
  134.   autoMouse moveMouse,59,118
  135.   send "mouseUp up" to bg button id 2
  136.   wait 1 second
  137.   autoMouse menuMouse,5,8 -- Single Student
  138.   showInfo "Report Cards",false
  139.   wait 1 second
  140.   set the cursor to hand
  141.   autoMouse menuMouse,5,1 -- All Students
  142.   if the result is "Item not found" then -- test for XCMD bug
  143.     send "doMenu All Students" to background "CSL Attendance Window"
  144.   end if
  145.   wait 1 second
  146.   autoMouse menuMouse,6,7 -- Upload Term Attendance‚Ķ
  147.   showInfo "Upload Term Attendance",true
  148.   wait 1 second
  149.   set the cursor to hand
  150.   autoMouse moveMouse,364,295
  151.   click at the loc of card button "Cancel"
  152.   showInfo "Attendance Reports",false
  153.   wait 1 second
  154.   set the cursor to hand
  155.   autoMouse menuMouse,7,1 -- Today's Attendance‚Ķ
  156.   if the result is "Item not found" then -- test for XCMD bug
  157.     send "doMenu Today's Attendance‚Ķ" to background "CSL Attendance Window"
  158.   end if
  159.   wait 1 second
  160.   autoMouse moveMouse,153,177
  161.   click at the loc of card button id 5
  162.   wait 1 second
  163.   autoMouse moveMouse,193,296
  164.   click at the loc of card button "Print"
  165.   wait 2 seconds
  166.   autoMouse moveMouse,18,30
  167.   click at the loc of card button "Close"
  168.   wait 1 second
  169.   autoMouse menuMouse,7,1 -- Today's Attendance‚Ķ
  170.   if the result is "Item not found" then -- test for XCMD bug
  171.     send "doMenu Today's Attendance‚Ķ" to background "CSL Attendance Window"
  172.   end if
  173.   wait 1 second
  174.   autoMouse moveMouse,193,296
  175.   click at the loc of card button "Print"
  176.   wait 1 second
  177.   autoMouse moveMouse,191,328
  178.   click at the loc of card button "Scroll right"
  179.   wait 2 seconds
  180.   autoMouse moveMouse,199,328
  181.   click at the loc of card button "Scroll right"
  182.   wait 2 seconds
  183.   autoMouse moveMouse,206,328
  184.   click at the loc of card button "Scroll right"
  185.   wait 2 seconds
  186.   autoMouse moveMouse,212,328
  187.   click at the loc of card button "Scroll right"
  188.   wait 2 seconds
  189.   autoMouse moveMouse,18,30
  190.   click at the loc of card button "Close"
  191.   showInfo "Exception Report",false
  192.   wait 1 second
  193.   set the cursor to hand
  194.   autoMouse menuMouse,7,3 -- Exception Report‚Ķ
  195.   wait 1 second
  196.   autoMouse moveMouse,120,101
  197.   send "mouseUp up" to card button id 8
  198.   wait 30
  199.   autoMouse moveMouse,120,116
  200.   send "mouseUp down" to card button id 9
  201.   wait 30
  202.   autoMouse moveMouse,120,130
  203.   send "mouseUp down" to card button id 10
  204.   wait 1 second
  205.   autoMouse moveMouse,120,218
  206.   send "mouseUp up" to card button id 14
  207.   wait 30
  208.   autoMouse moveMouse,120,231
  209.   send "mouseUp down" to card button id 15
  210.   wait 1 second
  211.   autoMouse moveMouse,344,244
  212.   click at the loc of card button "Select all"
  213.   wait 2 second
  214.   autoMouse moveMouse,201,38
  215.   click at the loc of card button "Periods"
  216.   wait 2 second
  217.   autoMouse moveMouse,291,38
  218.   click at the loc of card button "Exceptions"
  219.   wait 1 second
  220.   autoMouse moveMouse,154,160
  221.   click at the loc of card button id 11
  222.   wait 1 second
  223.   autoMouse moveMouse,145,194
  224.   tabKey
  225.   type "1"
  226.   tabKey
  227.   type "4"
  228.   wait 1 second
  229.   put "Feb 01, 1989" into card field "From"
  230.   wait 1 second
  231.   put "Feb 28, 1989" into card field "To"
  232.   wait 1 second
  233.   autoMouse moveMouse,323,142
  234.   click at the loc of card button id 14
  235.   wait 1 second
  236.   autoMouse moveMouse,323,284
  237.   click at the loc of card button id 20
  238.   wait 2 second
  239.   autoMouse moveMouse,382,38
  240.   click at the loc of card button "Format"
  241.   wait 1 second
  242.   autoMouse moveMouse,153,162
  243.   click at the loc of card button "Attendance - List format"
  244.   wait 1 second
  245.   autoMouse moveMouse,193,228
  246.   click at the loc of card button "Sorted by homeroom"
  247.   wait 1 second
  248.   autoMouse moveMouse,184,281
  249.   click at the loc of card button "Print"
  250.   wait 3 seconds
  251.   autoMouse moveMouse,18,30
  252.   click at the loc of card button "Close"
  253.   showInfo "Other Reports",false
  254.   autoMouse menuMouse,1,1 -- About
  255.   if the result is "Item not found" then -- test for XCMD bug
  256.     send "doMenu About" to background "CSL Attendance Window"
  257.   end if
  258. end rollingDemo
  259.  
  260. on showInfo fieldName,cardPict
  261.   lock screen
  262.   set the cursor to none
  263.   restoreMenuBar false
  264.   grayPicture cardPict
  265.   installMenuBar 1020,1021,1022,1023,1024,1025,1026,1027
  266.   show card field fieldName
  267.   unlock screen with dissolve
  268.   put the secs into temp
  269.   repeat until the mouseClick
  270.     if (the secs - temp) > 30 then show card field "Continue"
  271.   end repeat
  272.   lock screen
  273.   hide card field fieldName
  274.   hide card field "Continue"
  275.   pop card
  276.   unlock screen with dissolve
  277.   if the optionKey is down then exit to HyperCard
  278. end showInfo
  279.  
  280.  
  281. -- part contents for background part 5
  282. ----- text -----
  283. Attendance
  284.  
  285. -- part contents for background part 6
  286. ----- text -----
  287. Mac School provides Attendance clerks with an easy-to-use, fast and powerful Attendance module.  Attendance can either be entered manually and now, with the multi-user environment, at multiple work-stations at the same time or via optical scanners such as ScanTron, Chatsworth, and NCS scanners.
  288.  
  289. Attendance can be entered on a daily, semi-daily or period by period basis.  The school can define up to 128 daily and 128 period attendance codes.   The value of the code and whether it should be by default an excused or an unexcused attendance code is also school defined.  Comments can be kept defining a reason for each student's absence and printed out in reports.
  290.  
  291. Attendance reporting is very flexible!  Numerous attendance reports have already been built into the system such as:  Absent Students‚Äô Phone List, Today‚Äôs List of Absent Students, Students‚Äô Birthdays Report, Daily, Weekly and Monthly reports for selected students, Statistical Summaries, and many many more!  It provides reports for administrative purposes and highlights attendance trends.  In fact, it tells you everything about attendance that you would want to know!
  292.  
  293. Individual State Attendance reports are added without extra charge if the ‚Äòhard wired‚Äô reports are not satisfactory and the report cannot be reproduced with the Report Manager.
  294.  
  295. Mac School can also download a list of absent students‚Äô telephone numbers to an automatic dialer - ROLL‚Ä¢CALL.
  296.  
  297. A capability soon to be released is the ability for a teacher to enter period attendance over the network on his/her classroom //GS.